home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / biz / cloan / AExplor_Update.lha / AExplorer_Update / Install < prev    next >
Text File  |  1999-06-14  |  4KB  |  113 lines
  1. ; $VER: InstallAExplorer_Update 1.5
  2. ; Cloanto Amiga Explorer Update Installer Script
  3. ; Copyright © 1996-1999 Cloanto
  4. ; Cloanto is a registered trademark of Cloanto
  5. ; "Installer and Installer project icon Copyright © 1991-1993 Commodore-Amiga, Inc. All Rights Reserved
  6. ;  Reproduced and distributed under license from Commodore"
  7. ; New installer icon design Copyright © 1994 Cloanto
  8.  
  9. (set #which-dir
  10.     "Please indicate the directory where Amiga Explorer is installed:")
  11.  
  12. (set #which-dir-help
  13.     (cat "\nThis program updates the \"AExplorer\" program file."
  14.     "\n\nPlease specify the full path of the installed Amiga "
  15.     "Explorer software, including the final \"AExplorer\" directory name "
  16.     "(or other, if a different drawer name was used).\n\n"
  17.     @askdir-help))
  18.  
  19. (set #message-aexplorernotok
  20.     "\nThis update was not designed for the selected Amiga Explorer program file. It will not be updated.")
  21.  
  22. (set #error-aexplorer
  23.     "\nAmiga Explorer program file could not be found. It will not be updated.")
  24.  
  25. (set #busy-aexplorer
  26.     "Updating Amiga Explorer program file.")
  27.  
  28. (set #busy-icon
  29.     "Updating Amiga Explorer Workbench icon (ToolTypes).")
  30.  
  31. (if (= (getassign "AF_Disk" "av") "") (set aexplorer_dest "") (set aexplorer_dest (getassign "AF_Disk" "av")))
  32. (if (AND (<> (getdevice aexplorer_dest)(getdevice "RAM:"))(< (getdiskspace aexplorer_dest) 2048)) (set aexplorer_dest ""))
  33. (if (= aexplorer_dest "") (set aexplorer_dest @default-dest))
  34.  
  35. (set aexplorer_dest (askdir
  36.     (prompt #which-dir)
  37.     (help #which-dir-help)
  38.     (default aexplorer_dest)
  39.     (newpath)
  40. ))
  41.  
  42. (set target1 (tackon aexplorer_dest "AExplorer"))
  43. (if (<> (exists target1) 1) (if (= (exists target1) 2) (set aexplorer_dest target1)))
  44. (set @default-dest aexplorer_dest)
  45.  
  46. (set target1 (tackon aexplorer_dest "AExplorer"))
  47. (if (<> (exists target1) 1) (message #error-aexplorer) (
  48.     (if (AND (AND (AND (AND (AND (AND (<> (getsize target1) 19248) (<> (getsize target1) 20624)) (<> (getsize target1) 27744)) (<> (getsize target1) 27488)) (<> (getsize target1) 42512)) (<> (getsize target1) 43256)) (<> (getsize target1) 43532)) (message #message-aexplorernotok) (
  49.  
  50.         (if (= (getsize target1) 19248) (
  51.             (working #busy-aexplorer)
  52.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pAE10-11a.pch \"" target1 "\""))
  53.             (run runstring)
  54.         ))
  55.  
  56.         (if (= (getsize target1) 20624) (
  57.             (working #busy-aexplorer)
  58.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pAE11a-11c.pch \"" target1 "\""))
  59.             (run runstring)
  60.  
  61.             (working #busy-icon)
  62.             (copyfiles
  63.                 (source "icons/AExplorer.info")
  64.                 (dest (pathonly target1))
  65.                 (optional "nofail" "force")
  66.                 (nogauge)
  67.                 )
  68.         ))
  69.  
  70.         (if (= (getsize target1) 27744) (
  71.             (working #busy-aexplorer)
  72.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pAE11c-11d.pch \"" target1 "\""))
  73.             (run runstring)
  74.         ))
  75.  
  76.         (if (= (getsize target1) 27488) (
  77.             (working #busy-aexplorer)
  78.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pAE11d-20.pch \"" target1 "\""))
  79.             (run runstring)
  80.         ))
  81.  
  82.         (if (= (getsize target1) 42512) (
  83.             (working #busy-aexplorer)
  84.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pAE20-202.pch \"" target1 "\""))
  85.             (run runstring)
  86.         ))
  87.  
  88.         (if (= (getsize target1) 43256) (
  89.             (working #busy-aexplorer)
  90.  
  91.             (if (= (getversion target1) 131074) (
  92.                 (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pAE202-30.pch \"" target1 "\""))
  93.                 (run runstring)
  94.             ))
  95.  
  96.  
  97.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pAE30-301.pch \"" target1 "\""))
  98.             (run runstring)
  99.         ))
  100.  
  101.         (if (= (getsize target1) 43532) (
  102.             (working #busy-aexplorer)
  103.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pAE301-302.pch \"" target1 "\""))
  104.             (run runstring)
  105.         ))
  106.  
  107.  
  108.         (exit)
  109.     ))
  110. ))
  111.  
  112. (exit (quiet))
  113.